home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
VS_804.ARJ
/
MAINTSRC.EXE
/
FLDLISTS.PRG
< prev
next >
Wrap
Text File
|
1991-10-25
|
1KB
|
57 lines
* Filename......: FldLists.Prg
*
* Author........: Vernon E. Six, Jr.
*
* Last Update...: Thu 10-24-1991 19:27:49
*
* Notice........: Copyright (c) 1991 by Vernon E. Six, Jr.
* All Rights Reserved World Wide
*
*
* Dialect.......: Clipper v5.01
FUNCTION L_DictFld()
*****
* Returns a string for use by S_DictFld()
*****
RETURN( _DICTFLD->FIELD_NMBR + [ ] + ;
_DICTFLD->FIELD_NAME + [ ] + ;
_DICTFLD->FIELD_TYPE + [ ] + ;
STRZERO( _DICTFLD->FIELD_LEN, 3 ) + [,] + ;
STRZERO( _DICTFLD->FIELD_DEC, 3 ) + [ ] + ;
_DICTFLD->DESC )
*** EOF: L_DictFld() ********************************************************
FUNCTION L_DictHdr()
*****
* Returns a string for use by S_DictHdr()
*****
RETURN( _DICTHDR->DBF_NAME + [ - ] + _DICTHDR->DESC )
*** EOF: L_DictHdr() ********************************************************
FUNCTION L_DictNtx()
*****
* Returns a string for use by S_DictNtx()
*****
RETURN( _DICTNTX->ORDER + [ ] + _DICTNTX->NTX_NAME + [ ] + _DICTNTX->KEY )
*** EOF L_DictNtx() *********************************************************